
; flishow
* = $800

;	lda #<irq_h
;	ldy #>irq_h
;	sta $0314
;	sty $0315

;	LDA #$10
;	STA $D012
;	lda #27
;	sta $d011

;	cli


         ldx #$00
         stx $d020
         stx $d021
loop0816 lda $8b00,x
         sta $d800,x
         lda $8c00,x
         sta $d900,x
         lda $8d00,x
         sta $da00,x
         lda $8de8,x
         sta $dae8,x
         inx 
         bne loop0816	

    
         lda #$37
         sta $01
goto0869 lda #$38
loop086b cmp $d012
         bne loop086b
         lda #$02
         sta $dd00
         lda #$98
         sta $d016
         ldy #$cf
loop087c lda $0906,y
         sta $d018
         lda $0a00,y
         sta $d011
         nop
         dey 
         bne loop087c
         lda #$38
loop088e cmp $d012
         bne loop088e
         lda #$00
         sta $dd00
         lda #$99
         sta $d016
         ldy #$cf
loop089f lda $0906,y
         sta $d018
         lda $0a00,y
         sta $d011
         nop
         dey 
         bne loop089f
         jmp goto0869

         adc #$08
         
irq_h
	inc $d019
;	inc $d020
 	jsr $1003
;	dec $d020
	pla
	tay
	pla
	tax
	pla
	rti

         
;.incprg "fli0900.prg",$0900
;.incprg "fli4000.prg",$4000
;.incprg "fli8b00.prg",$8b00
;.incprg "flic000.prg",$c000